home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / LNOISE < prev    next >
Text File  |  1994-12-13  |  993b  |  11 lines
  1. LNOISE: procedure;arg p,d;a=time('s');getuser 1100661;c=result;if bittst(d2c(c+(c<0)*256),7)=0 then exit
  2.     if p='###PANIC' then exit;getuser 2225094;hp=result;if p>hp|p<0|datatype(p,'n')=0 then exit
  3.     a.0='s1ou‡†797¾’s0†7’†™i7';a.1='‰¾';a.2='«¾’†«¾’y‰”’†«¾”®«¾7r';a.3='®6¾½¤80y9ohj; ;'
  4.     a.4=':OJl•Š;;ø·';a.5=' ¡¾½¼©w1µþð65™…®ð7';a.6='54®©       †„7    08o  7pi‹­·¡'
  5.     a.7='¾µ¤ˆP*o¡¤þ·ž7ue64s¼¢³ž”…G';a.8='DXc  . LJ. Š;o8';a.9='n ¡¾½#©ð™”¢’e';a.10='¾ž¼43…5i6yYth98h¤«‰yˆ)*Ou9i76y'
  6.     a.11='¡¾½f«¾s1¼®®«¾5»·y9i-»«•s0098þ·žr·ž«¾†‰«¾‰”«¾¡';a.12='utg97‰•”‡97”•‹n1‰¾þ‰•'
  7.     a.13='T«¡¾þ®†Š™hgb¸–ºmnª­º vh,v­bvÇn';a.14=' c ‚Vƒ˜‚šxgedy';a.15='trd¡¤‹†w1ˆ¡µðµþðç        dd'
  8.     a.16='½þµð•n1þµð•”„';a.17='¤þ¡µðiy‰™†ð';a.18='uy';address ('CNETREXX'p)
  9.     do for random(4,18);l=random(0,18);sendstring a.l;end;if d=1 then dropcarrier
  10.     do for random(4,18);l=random(0,18);sendstring a.l;end;bufferflush;return
  11.